-- background: 2777 from stack: in.2b
-- bmap block id: 3700
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----

on openStack
  hide MenuBar

  hide message
  global whenOpened
  if whenOpened is empty then
    put the date into whenOpened
    answer "Please print this!" with "Print" or "Cancel"
    if it is "Print" then
      doMenu "Print Report..."
    end if
  end if
end openStack

on exitStack
  show MenuBar
end exitStack


-- part 3 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=140 top=307 right=323 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MenuLaunch
----- HyperTalk script -----
on mousedown
  push card
  visual dissolve to gray
  visual dissolve
  put the mouseloc into menuLoc
  put item 1 of menuLoc - -10 into horiz
  put item 2 of menuLoc - 290 into vert
  get PopUpMenu("WriteNow;MacWrite;MockWrite;TeachText;Edit;"& "(-;MacDraw 1.9;FullPaint;SuperPaint;(-;MacCalc;MORE™;"& "(-;Red Ryder 10.3;StuffIt 1.20;PackIt III;"& "(-;Open other;Open Stack", 0, vert, horiz)
  put it into choice
  set hilite of target to false
  if choice = "0" then exit mousedown

  if choice = "1" then open "CMS Hard Disk:Word Processors:WriteNow"

  if choice = "2" then open "CMS Hard Disk:Word Processors:MacWrite"


  -- this one activates the "MockWrite" DA.Any DA can be used like this.
  -- useful for Stacks w/ no menubar
  if choice = "3" then doMenu "MockWrite"

  if choice = "4" then open "CMS Hard Disk:Word Processors:TeachText"

  if choice = "5" then open "CMS Hard Disk:Word Processors:Edit"

  if choice = "7" then open "CMS Hard Disk:Graphics:MacDraw 1.9"

  if choice = "8" then open "CMS Hard Disk:Graphics:FullPaint"

  if choice = "9" then open "CMS Hard Disk:Graphics:SuperPaint"

  if choice = "11" then open "CMS Hard Disk:Business Applications:MacCalc"

  if choice = "12" then open "CMS Hard Disk:Business Applications:MORE™"

  if choice = "14" then open "CMS Hard Disk:Comm. ƒolder:Red's ƒolder:Red Ryder 10.3"

  if choice = "15" then open "CMS Hard Disk:Comm. ƒolder:.SIT.PIT Stuff:StuffIt 1.20"

  if choice = "16" then open "CMS Hard Disk:Comm. ƒolder:.SIT.PIT Stuff:PackIt III"

  if choice = "18" then
    global theFile
    put FileName("APPL") into theFile
    if theFile is not empty then
      visual effect dissolve
      open theFile
    end if
  end if

  if choice = "19" then doMenu "Open Stack..."

end mousedown




-- part 5 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=15 top=90 right=280 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Instructions


-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=284 top=308 right=321 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Stacks
----- HyperTalk script -----
on mousedown
  push card
  visual dissolve to white
  visual dissolve fast to gray
  visual dissolve fast to white
  visual dissolve
  put the mouseloc into menuLoc
  put item 1 of menuLoc - -10 into horiz
  put item 2 of menuLoc - 160 into vert
  get PopUpMenu("Art Ideas;Clip Art;Slide Show;(-;Developer Stack 1.1;"& ">90 Icons;(-;Home/H;Work Station;(-;Open Stack", 0, vert, horiz)
  put it into choice
  set hilite of target to false
  if choice = "0" then exit mousedown

  if choice = "1" then go to "Art Ideas"

  if choice = "2" then go to "Clip Art"

  if choice = "3" then go to "Slide Show"

  if choice = "5" then go to "Developer Stack 1.1"

  if choice = "6" then go to ">90 Icons!!!"

  if choice = "8" then go to "Home"

  if choice = "9" then go to "WorkStation v3.01"

  if choice = "11" then doMenu "Open Stack..."

end mousedown




-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=141 top=308 right=321 bottom=201
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Utils
----- HyperTalk script -----
on mousedown
  push card
  put (the short name of this stack) into thisStack
  visual dissolve to gray
  visual dissolve
  put the mouseloc into menuLoc
  put item 1 of menuLoc - 140 into horiz
  put item 2 of menuLoc - 260 into vert
  if thisStack ≠ "Home" then
    get PopUpMenu("ResEdit;Fedit+;MacTools;(-;"& "Rename a File;Delete a File;DeProtect a Stack;ResCopy;"& "(-;Browsing;Typing;Painting;Authoring;Scripting;"& "(-;Quit;Warm Boot", 0, vert, horiz)
    put it into choice
  end if
  if thisStack = "Home" then
    get PopUpMenu("ResEdit;Fedit+;MacTools;(-;"& "(Rename a File;Delete a File;DeProtect a Stack;(ResCopy;"& "(-;Browsing;Typing;Painting;Authoring;Scripting;"& "(-;Quit;Warm Boot", 0, vert, horiz)
    put it into choice
  end if
  set hilite of target to false
  if choice = "0" then exit mousedown

  if choice = "1" then open "CMS Hard Disk:Utilities Folder:**CAUTION**Disk Edit stuff:ResEdit1.1b3"

  if choice = "2" then open "CMS Hard Disk:Utilities Folder:**CAUTION**Disk Edit stuff:Fedit Plus+"

  if choice = "3" then open "CMS Hard Disk:Utilities Folder:**CAUTION**Disk Edit stuff:MacTools™ 6.4"

  if choice = "5" then
    put "Please select a file to rename"
    put filename() into renamethis
    if renamethis is empty then
      hide message window
      beep
      exit mousedown
    end if
    hide message window

    put LastPathComponent(renamethis) into shortname
    ask "What do you want to name this file" with shortname
    if it is shortname or it is empty then
      hide message window
      beep
      exit mousedown
    end if

    put RenameFile(renamethis,it) into returnedthis

    if returnedthis = 0 then
      answer "Everything went just fine"
    else
      if returnedthis < 0 then
        OsErr returnedthis
      else
        answer "Whoops, there was an error"
      end if
    end if
  end if

  if choice = "6" then
    put "Please select a file to delete"
    put filename() into deletethis
    if deletethis is empty then
      hide message window
      beep
      exit mouseDown
    end if
    hide message window

    answer "Are you sure you want to delete this?" with "Cancel" or "OK"
    if it is "Cancel" then
      beep
      exit mouseDown
    end if

    put deletefile(deletethis) into returnedthis

    if returnedthis = 0 then
      answer "I hope you were sure, 'cause it's gone!"
    else
      if returnedthis < 0 then
        OsErr returnedthis
      else
        answer "Whoops, there was an error"
      end if
    end if
  end if

  if choice = "7" then
    put "Please select a protected stack"
    set cursor to 4
    put filename("STAK") into fname
    if fname is empty then
      hide message window
      exit mousedown
    end if

    deprotect fname

    if the result is empty
    then answer "Deprotect Successful" with "OK"
  else if the result is -49
  then answer "Sorry, that file is busy."
else if the result is -44
then answer "Sorry, the disk is locked."
else answer "Failed: unexpected file system error: " & the result with "OK"
end if

if choice = "8" then resCopy

if choice = "10" then set UserLevel to 1

if choice = "11" then set UserLevel to 2

if choice = "12" then set UserLevel to 3

if choice = "13" then set userLevel to 4

if choice = "14" then set UserLevel to 5

if choice = "16" then
  answer "Quit HyperCard?" with "Finder" or "ShutDown" or "Cancel"
  if it is "Finder" then doMenu "Quit HyperCard"
  if it is "ShutDown" then shutDown
  if it is "Cancel" then exit mouseDown
end if

if choice = "17" then
  answer "Re-boot?" with "Restart" or "ShutDown" or "Cancel"
  if it is "Restart" then doRestart
  if it is "ShutDown" then shutDown
  if it is "Cancel" then exit mouseDown
end if

end mousedown